home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 223_01 / fflush.c < prev    next >
Text File  |  1980-01-01  |  768b  |  37 lines
  1.  
  2. /*
  3. ** fflush.c    by    F. A. Scacchitti    9/15/84
  4. */
  5.  
  6. #define WRITE 1
  7. #define OPEN 15
  8.  
  9. #include <stdio.h>
  10.  
  11. static int unused, charptr;
  12. static char mode, record, extent;
  13.  
  14. fflush(fd) int fd; {
  15.  
  16.  
  17.    mode = *(fd + 33);
  18.    if(mode != WRITE) return(NULL);
  19.  
  20.    charptr = *(fd + 36);
  21.    unused  = *(fd + 38);
  22.    extent  = *(fd + 12);
  23.    record  = *(fd + 32);
  24.  
  25.    if(fclose(fd) != NULL || bdos(OPEN,fd) < NULL) return(EOF);
  26.  
  27.    *(fd + 36) = charptr;
  28.    *(fd + 38) = unused;
  29.    *(fd + 12) = extent;
  30.    *(fd + 32) = record;
  31.    *(fd + 33) = mode;
  32.  
  33.    return(NULL);
  34.  
  35. }
  36.  
  37.